VB中求"完备数"的代码

来源：百度知道 编辑：UC知道 时间：2024/05/11 15:42:02
通过通用过程求”完备数”的代码，我总是调不出来．完备数是因子的和等于他本身

Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox(""))
完备 n
End Sub

Private Sub 完备(i As Integer)
Dim j As Integer, 和 As Integer
和 = 0
Print "因子有："
For j = 1 To i / 2
If i Mod j = 0 Then
和 = 和 + j
Print j;
End If
Next j
Print
Print "其和为："; 和
If 和 = i Then
Print "所以，"; i; "是完备数"
Else
Print "所以"; i; "不是完备数"
End If